home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / GeoWorld_Developer / Install < prev    next >
Encoding:
Text File  |  2002-03-13  |  1.1 KB  |  42 lines

  1. ;
  2. ; *** GeoWorld-Developer  V1.6   © by Beer Productions / 12 Feb 2002 ***
  3. ;
  4. ; $VER: GeoWorld-DevTool - Installer (12.02.02)
  5.  
  6. ;Variablen
  7. (set #appname "GeoWorld-Developer")
  8.  
  9. (message "Willkommen zur Installation des\n\n\nGeoWorld DeveloperTools V1.6 (Februar 2002)\n\n\n© 2002 by Beer Productions\n\nAlle Rechte reserviert.")
  10.  
  11. (set @default-dest
  12.   (askdir
  13.     (prompt "Wählen Sie das Verzeichnis Ihrer Festplatte, IN DEM sich die GeoWorld-Schublade befindet.\n")
  14.     (disk)
  15.     (help @askdir-help)
  16.     (default @default-dest)
  17.   )
  18. )
  19.  
  20.  
  21. (set @default-dest (tackon @default-dest "GeoWorld"))
  22. (set #destdir (cat "\"" @default-dest "/" "\""))
  23. (set #dir      (@default-dest ))
  24.  
  25. (working " Installation des GeoWorld-DeveloperTools ")
  26.  
  27. (If (Not (Exists (tackon @default-dest "Daten/")))
  28.   (abort "Konnte kein korrektes GeoWorld-Verzeichnis\n finden. Die Installation wird abgebrochen.\n\n Bitte beachten Sie, dass Sie das Verzeichnis\n auswählen, in DER sich die GeoWorld-Schublade befindet.")
  29. )
  30.  
  31.  
  32.     (set a
  33.       (run ("C:lha x %s %s" "DevTool.lha" #destdir)
  34.       )
  35.     )
  36.     (if (<> a 0)
  37.       (message "Fehler beim Installieren des Programm-Archivs.")
  38.     )
  39.  
  40.  
  41. (exit)
  42.